home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / game / patch / cannonhd.lha / CannonFodder / Install_Cannon < prev    next >
Text File  |  1997-03-17  |  2KB  |  125 lines
  1. ; $VER: Cannon HD Install-Script V1.0 (25.02.97) by Jean-François Fabre
  2. ; Adapted from an installer from Sentinel
  3. ;
  4. ; CFRip has been programmed by Joel Pattey and JF Fabre
  5.  
  6. (set GameDir "CannonFodder")
  7.  
  8. ;try to figure out a place where the user usually installs his games
  9. (if (exists "Games:" (noreq) )
  10.     (set @default-dest "Games:")
  11.     (if (exists "SYS:Games" (noreq) )
  12.         (set @default-dest "SYS:Games")
  13.         (if (exists "Work:Games" (noreq) )
  14.             (set @default-dest "Work:Games")
  15.             (if (exists "JEUX:" (noreq) )
  16.                (set @default-dest "JEUX:")
  17.                (set @default-dest "SYS:")
  18.             )
  19.         )
  20.     )
  21. )
  22.  
  23. (set #game_ver
  24.     (askchoice
  25.         (prompt "Which version of Cannon Fodder\ndo you want to install")
  26.         (help    @askoptions-help)
  27.         (choices
  28.            "CD-32 version"
  29.            "Floppy version"
  30.         )
  31.     )
  32. )
  33.  
  34. ;ask the user to select a directory to install the game into
  35. (set default-dest
  36.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  37.                              "A drawer called " GameDir " will be created.")
  38.                      (help @askdir-help)
  39.                      (default @default-dest)
  40.                      (newpath)
  41.              )
  42.      GameDir
  43.      )
  44. )
  45.  
  46. (set @default-dest default-dest)
  47. (complete 5)
  48.  
  49. ;create the selected directory
  50. (makedir @default-dest
  51.          (infos)
  52. )
  53.  
  54. (set #dest (tackon @default-dest "data"))
  55.  
  56. (makedir #dest
  57.          (infos)
  58. )
  59.  
  60.  
  61. ;copy all extra files to this directory
  62.  
  63. (copyfiles (source "CannonFodder")
  64.            (dest @default-dest)
  65. )
  66.  
  67. (copyfiles (source "CannonFodder.icon")
  68.            (dest @default-dest)
  69.        (newname "CannonFodder.info")
  70. )
  71.  
  72. (copyfiles (source "fodder")
  73.            (dest @default-dest)
  74. )
  75.  
  76. (copyfiles (source "cfsdisk")
  77.            (dest #dest)
  78. )
  79.  
  80. (if (= #game_ver 1)
  81.     (
  82.  
  83. (complete 10)
  84.  
  85. (message "\n\n\n\n\n\n\Please insert Cannon Fodder disk 1 in DF0:")
  86.     (if
  87.         (= 0 (run ("CFRip 1 %s" #dest)))
  88.         ("")
  89.     )
  90.  
  91. (complete 30)
  92.  
  93. (message "\n\n\n\n\n\n\Please insert Cannon Fodder disk 2 in DF0:")
  94.  
  95.     (if
  96.         (= 0 (run ("CFRip 2 %s" #dest)))
  97.         ("")
  98.     )
  99.  
  100. (complete 60)
  101.  
  102. (message "\n\n\n\n\n\n\Please insert Cannon Fodder disk 3 in DF0:")
  103.  
  104.     (if
  105.         (= 0 (run ("CFRip 3 %s" #dest)))
  106.         ("")
  107.     )
  108.  
  109. ))
  110.  
  111. (if (= #game_ver 0)
  112.     (
  113.  
  114. (message "\n\n\n\n\n\n\Please insert Cannon Fodder CD32 in CD0:")
  115.  
  116. (copyfiles (source "CD0:fodder")
  117.            (dest #dest)
  118.            (all)
  119.    )
  120.  
  121.  
  122. ))
  123.  
  124. (complete 100)
  125.